home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Spezial (19xx)(-)(de)[gt507b].d64 / geochange drive (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  49 lines
  1. 1 POKE53280,6:POKE53281,6
  2. 2 PRINT"[154][147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"CHR$(14)CHR$(8)
  3. 3 PRINT" [154][221]                                   [221][144] "
  4. 4 PRINT" [154][221]       GEO[195]HANGE [196]RIVE  [214]1.1       [221][144] "
  5. 5 PRINT" [154][221]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]       [221][144] "
  6. 6 PRINT" [154][221]                                   [221][144] "
  7. 7 PRINT" [154][221]    [215]RITTEN  BY  [212]HOMAS [211]OMMER     [221][144] "
  8. 8 PRINT" [154][221]    [214]ERSIONSSTAND : 10.06.1990     [221][144] "
  9. 9 PRINT" [154][221]                                   [221][144] "
  10. 10 PRINT" [154][221]                                   [221][144] "
  11. 11 PRINT" [154][221]    [210]OUTINE DES [196]EVICEWECHSELS     [221][144] "
  12. 12 PRINT" [154][221]    AUS:  [195][200][193][206][199][197] [213][206][201][212]  VON DER     [221][144] "
  13. 13 PRINT" [154][221]    1764 [210][193][205] [197]XPANSIONS [196]ISK !     [221][144] "
  14. 14 PRINT" [154][221]                                   [221][144] "
  15. 15 PRINT" [154][221]                                   [221][144] "
  16. 16 PRINT" [154][221]    - [208]UBLIC [196]OMAIN [211]OFTWARE -     [221][144] "
  17. 17 PRINT" [154][221]                                   [221][144] "
  18. 18 PRINT" [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144] "
  19. 19 PRINT"  [144]                                     "
  20. 20 PRINT" [196]RUECKE ([210][197][212][213][210][206][146])[145][157][157][157][157][157][157][157][164][164][164][164][164][164]";
  21. 21 PRINT "FUER WEITER !"
  22. 22 GETQ$:IFQ$=CHR$(13)THENGOTO34
  23. 23 POKE646,INT(16*RND(1))+1:GOTO20
  24. 24 END
  25. 25 PRINT"[147][158] GEO[195]HANGE [196]EVICE [146]"
  26. 26 F=0: INPUT "  [193][204][212][197] [146] [199]ERAETEADRESSE # (8-30): ? 8 [157][157][157][157]";F
  27. 27 IF F<8 OR F>30 THEN PRINT "[145][145]": GOTO 26
  28. 28 T=0: INPUT "  [206][197][213][197] [146] [199]ERAETEADRESSE # (8-30): ? 9 [157][157][157][157]";T
  29. 29 IF T<8 OR T>30 THEN PRINT "[145][145]": GOTO 28
  30. 30 OPEN 1,F,15,"M-W"+CHR$(119)+CHR$(0)+CHR$(2)+CHR$(T+32)+CHR$(T+64)
  31. 31 S=ST: CLOSE1
  32. 32 IF (S AND 191) THEN PRINT " [198]EHLER AUF [204]AUFWERK !F: GOTO 430
  33. 33 [153] "(null)AUFWERK :";F;"IST JETZT (null)AUFWERK :";T
  34. 34 [153] "LOAD ASCOLGENDE ATNUSWAHL HABEN (null)IE JETZT :"
  35. 35 [153]"  1  =  ATNENDERUNG VORNEHMEN."
  36. 36 [153]"  2  =  (null)ERLASSEN NACH PEEKATN(null)RIGHT$LEN"
  37. 37 [153]"  3  =  (null)ERLASSEN NACH CHR$VAL(null)(null) ((null)(null)(null)49152)"
  38. 38 [153]"  4  =  (null)ERLASSEN NACH CHR$VAL(null)(null) ((null)PEEK(null)(null)(null))"
  39. 39 [133] " RIGHT$HRE (null)AHL (1-4) ";WA
  40. 40 [139]WA[179]1[176]WA[177]4[167][153]"ONONON";:[137]39
  41. 41 [139]WA[178]1[167][137]25
  42. 42 [139]WA[178]2[167][153]"LOAD"[199](142)[199](9):[128]
  43. 43 [139]WA[178]3[167][158]49152
  44. 44 [153]"LOAD (null)ERLASSEN NACH CHR$VAL(null)(null) UEBER (null)PEEK(null)(null)(null) !"
  45. 45 [133]" (null)AUFWERK MIT (null)PEEKOOT (8-10) ";SA
  46. 46 [153]"PEEKITTE EINE STR$ISKETTE MIT (null)PEEK(null)(null)(null) EINLEGEN !"
  47. 47 [161]Q$:[139]Q$[179][177][199](13)[167]47
  48. 48 [147]"RBOOT",SA,1
  49.